<%@ Language=VBScript %>

<%

dim strPageHeading

strPageHeading = "Registration Method"

%>

<!--#include file=../includes/pageaccess.asp-->

<%


%>

<HTML>
<HEAD>
<%
	Const csFormName = "REGISTER_METHOD"
	
	Set dllRegistration = Server.CreateObject("keytax.clsUsers")
	sCompany = dllRegistration.Registration()

%>


<title>Keytax - <%=strPageHeading%></title>


</HEAD>
<link rel="stylesheet" type="text/css" href="../../stylesheets/keytaxv2.css">

<!--#include file=../eventhandling/eventhandler.asp-->

<body language="vbscript" topmargin=10 >

<table width="100%" cellpadding=0 cellspacing=0>
	<tr>
		<td><!--#include file=../menu/menu.asp--></td>
	</tr>
	<tr>
		<td class=PageHeadingCell><%=strPageHeading%> &nbsp&nbsp</td>
	</tr>
	<tr>
		<td></td>
	</tr>
</table>

<form name="frmDirRegisterMethod" action="register.asp" method=post>

<br>
<!--
<br>
<fieldset>  
<table width=200>
    <td>&nbsp;&nbsp;&nbsp;</td>
    <td nowrap><INPUT type="radio" id=1 name=RegMethod value=Ind  disabled>I will be requesting Directives independently</td>
  </tr>
</table>
</fieldset>  
!-->

<table class="FormTable" cellpadding=2 cellspacing=1 align=center border=0 width="700">
	<tr>
		<td class="FormHeadingCell" colspan=2>Please fill in the following:</td>
	</tr>
	<tr>
		<td class="FormLeftCell" colspan=2>
			<center>
			<table align=center>
				<tr>
					<td align=right><INPUT type="radio" id=2 name=RegMethod checked value=Com></td>
					<td class="FormLeftCell">I will be requesting Directives as a user within a Company</td>
				</tr>
			</table>
			</center>
		</td>
	</tr>
	<tr>
		<td class="FormLeftCell" colspan=2><br></td>
	</tr>
	<tr>
		<td class="FormLeftCell" colspan=2>
			<center>
			<br>	
			Your access request will be authorised by someone in your company, after which, with his or her consent, you will be added as a KeyTax user.
			
			<br><br>
			
			Your password will then be e-mailed to you.
			
			<br><br>
			</center>
		</td>
	</tr>
	<tr>
		<td class="FormLeftCell" colspan=2><br></td>
	</tr>
	<tr>
		<td class="FormLeftCell">Please select the company you want to register in:</td>
		<td class="FormRightCell">
			<select id=lstCo name=lstCompany style="width:100%" >
				<option value="default">Please select</option>
				<%=sCompany%>
			</select>
		</td>
	</tr>
	<tr>
		<td class="FormBottomBar" colspan=2><input class="FormBottomButton" type=button name="butSubmit" value="Continue >>" onclick="FormSubmit()"></td>
	</tr>
</table>


<br>

<center>

<input type=hidden name="txtFormName" value="<%= csFormName %>">
</center>

</form>
</BODY>
</HTML>


<script language="vbscript">

sub FormSubmit()
	if frmDirRegisterMethod.lstCo.value = "default" then
		Call KeyTaxMessageBox ("Please select the company you wish to register in", "Input Error", "Exclamation")
		'msgbox "Please select the company you want to register in, from the dropdown box."
	else
		frmDirRegisterMethod.submit
	end if
end sub

</script>
